qstat <- function(...){
  dots <- list(...)
  dots <- paste(unlist(dots), collapse=" ")
  suppressWarnings( system(paste("qstat", dots),intern=TRUE,ignore.stderr=TRUE) )
}
